
   9 :RETURN ;O=99;GOSUB 7000
  10 NT=0;V=0
  15 BC=RND (32)×8;FC=BC+4+RND (32)×8
  20 Z=-34;I=0
  25 FOR N=1TO 5;@(N)=Z;Z=Z+4;NEXT N
 110 D=5;E=0;F=0
 120 U=0;CLEAR 
 125 N=141;FOR Z=-37TO -45STEP -1;BOX 0,Z,N,1,3;N=N+6;NEXT Z
 130 FOR Z=-45TO 45STEP 45;BOX Z,-25,3,22,3;NEXT Z
 145 W=35;FOR Z=1TO 5;BOX -45,@(Z),W,3,3;W=W-6;NEXT Z
 170 CX=-45;CY=-7;PRINT "1";CX=0;CY=-7;PRINT "2";CX=45;CY=-7;PRINT "3
 180 CX=-45;CY=20
 183 PRINT "BUDDHA'S BOGGLER"
 184 FOR N=1TO 1000;NEXT N
 186 CX=-45;CY=20
 187 PRINT "                 "
 190 CX=-65;CY=24
 191 PRINT "FROM";Z=1;H=1
 192 GOTO 500
 195 CX=-65;CY=24
 196 PRINT "TO  ";Z=0
 197 GOTO 500
 210 IF K=2C=0;GOTO 300
 220 IF K=3C=45;GOTO 400
 230 C=-45
 250 IF Z=0GOTO 800
 251 IF D=0GOTO 460
 252 S=D;L=@(S)
 253 GOSUB 2000
 260 BOX C,L,W,3,3
 270 D=D-1
 280 GOTO 195
 300 IF Z=0GOTO 800
 301 IF E=0GOTO 460
 302 S=E;L=@(S)
 303 GOSUB 2000
 310 BOX C,L,W,3,3
 320 E=E-1
 330 GOTO 195
 400 IF Z=0GOTO 800
 401 IF F=0GOTO 460
 402 S=F;L=@(S)
 403 GOSUB 2000
 410 BOX C,L,W,3,3
 420 F=F-1
 430 GOTO 195
 460 CX=-35;CY=5
 464 PRINT "INVALID MOVE"
 466 FOR N=1TO 250
 468 NEXT N
 470 CX=-35;CY=5
 474 PRINT "            "
 476 IF Z=1GOTO 190
 486 I=1;RETURN 
 500 IF JX(1)=0K=2
 505 IF JX(1)=-1K=1
 507 IF JX(1)=1K=3
 510 CX=-20;CY=24
 520 PRINT #1,K
 545 IF TR(1)GOTO 210
 550 GOTO 500
 800 IF C=0GOTO 900
 810 IF C=45GOTO 950
 815 H=D;L=@(D);GOSUB 2000
 817 IF I=1I=0;GOTO 195
 820 D=D+1
 825 S=D;L=@(S)
 830 BOX C,L,W,3,3
 850 GOTO 1000
 900 H=E;L=@(E);GOSUB 2000
 902 IF I=1I=0;GOTO 195
 903 E=E+1
 905 S=E;L=@(S)
 910 BOX C,L,W,3,3
 930 GOTO 1000
 950 H=F;L=@(F);GOSUB 2000
 952 IF I=1I=0;GOTO 195
 953 F=F+1
 955 S=F;L=@(S)
 960 BOX C,L,W,3,3
1000 GOSUB 3000
1020 Z=1
1025 IF F=5GOTO 4000
1030 GOTO 190
2000 P=0;Q=C;R=0
2005 IF H=0RETURN 
2010 M=PX(Q+3,L)
2015 NT=2;MU=RND (20)+40;NT=0
2020 IF M=0IF Z=1GOTO 2500
2025 IF M=0IF Z=0GOTO 8000
2030 Q=Q+1
2040 R=R+1
2050 GOTO 2010
2500 R=R+3;R=R×2-1
2510 W=R
2520 RETURN 
3000 V=V+1
3010 CX=-65;CY=15
3020 PRINT "MOVE",#3,V
3030 RETURN 
4000 FOR Z=1TO 50;NT=2;MU=55;NT=0;NEXT Z
4010 CLEAR ;CX=-60;CY=20
4015 IF V<O O=V
4025 IF V>31GOTO 5000
4030 PRINT "CONGRATULATIONS GURU"
4040 FOR Z=1TO 2000;NEXT Z;GOTO 10
5000 PRINT ;PRINT "YOU DID IT!!";PRINT 
5005 PRINT "GAME IS POSSIBLE IN 31
5010 PRINT "MOVES. TRY AGAIN!";PRINT 
6000 PRINT "BEST SO FAR ",#1,O;GOTO 4040
7000 CLEAR ;PRINT "OBJECT OF THE GAME IS TO  MOVE ALL THE DISKS FROM
7010 PRINT "PEG #1 TO PEG #3 WHILE
7020 PRINT "NEVER PLACING A LARGER
7030 PRINT "DISK ON TOP OF A SMALLER  ONE!
7033 PRINT "USE JOYSTICK AND TRIGGER!
7040 FOR Z=1TO 3000;NEXT Z;RETURN 
8000 IF (R+3)×2-1<WGOTO 460
8010 RETURN 
>RUN 
